home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
B-Book Series
/
(k)b2.d64
/
xmascards
< prev
next >
Wrap
Text File
|
2007-02-28
|
1KB
|
38 lines
0010 DIM RECIPIENT$ OF 30, SENDER$ OF 30
0020 DIM DATE$ OF 20, ANSW$ OF 10
0030 //
0040 WRITEFROM(5)
0050 INPUT "WHAT DATE (E.G. 12 DECEMBER 1980)? ": DATE$
0060 SENDER$:="HANNIBAL"
0070 //
0080 REPEAT
0090 READ RECIPIENT$
0100 WRITECARD
0110 FOR I:=1 TO 3 DO PRINT //3 DOWN
0120 INPUT "PRESS THE RETURN-KEY: ": ANSW$
0130 UNTIL EOD //END-OF-DATA//
0140 WRITEFROM(5)
0150 PRINT "NO MORE XMAS CARDS."
0160 PRINT "DON'T FORGET TO STAMP THEM."
0170 END
0180 //
0190 PROC WRITECARD
0200 WRITEFROM(5)
0210 PRINT " ODDINGTON, ",DATE$
0220 PRINT
0230 PRINT "DEAR ",RECIPIENT$
0240 PRINT
0250 PRINT "I WISH YOU A MERRY CHRISTMAS AND"
0260 PRINT "A HAPPY AND PROFITABLE NEW YEAR."
0270 PRINT " LOVE FROM"
0280 PRINT " ",SENDER$
0290 ENDPROC WRITECARD
0300 //
0310 PROC WRITEFROM(LINE)
0320 PRINT CHR$(147) //CLEAR//
0330 FOR I:=1 TO LINE DO PRINT //CURSOR DOWN
0340 ENDPROC WRITEFROM
0350 //
0360 DATA "ELIZA","LOUISE","ROY","LITTLE JOHN"
0370 DATA "AGATHE","PETER","CURT HUGO","MAX"